/ Power CD-ROM!! 8 / Power CD-ROM 8.iso / prgmming / dbtalk / dostext.adl

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 54 58 54 4f 50 45 4e 20 | 20 20 00 c3 20 20 20 20 |TXTOPEN |  ..    |
|00000010| 19 01 41 44 4c 20 20 20 | 20 20 20 20 20 20 20 20 |..ADL   |        |
|00000020| 41 20 20 20 20 38 41 30 | 30 30 30 33 4e 20 32 31 |A    8A0|0003N 21|
|00000030| 34 41 20 20 20 20 32 41 | 30 30 30 30 32 43 20 20 |4A    2A|00002C  |
|00000040| 20 20 37 74 78 74 66 69 | 6c 65 43 30 30 30 30 38 |  7txtfi|leC00008|
|00000050| 7b 7c 7c 20 4e 49 4c 7d | 41 30 30 30 30 32 43 20 |{|| NIL}|A00002C |
|00000060| 20 20 20 36 68 61 6e 64 | 6c 65 43 30 30 30 30 38 |   6hand|leC00008|
|00000070| 7b 7c 7c 20 4e 49 4c 7d | 4e 20 31 34 41 30 30 30 |{|| NIL}|N 14A000|
|00000080| 30 33 4e 30 32 31 30 43 | 20 20 20 32 34 7b 7c 7c |03N0210C|   24{|||
|00000090| 20 74 78 74 66 69 6c 65 | 3a 3d 73 65 6c 66 3a 73 | txtfile|:=self:s|
|000000a0| 65 74 28 29 7d 4e 20 31 | 35 41 30 30 30 30 33 4e |et()}N 1|5A00003N|
|000000b0| 30 32 31 30 43 20 20 20 | 33 30 7b 7c 7c 20 68 61 |0210C   |30{|| ha|
|000000c0| 6e 64 6c 65 3a 3d 46 43 | 52 45 41 54 45 20 28 74 |ndle:=FC|REATE (t|
|000000d0| 78 74 66 69 6c 65 29 7d | 4e 20 31 36 41 30 30 30 |xtfile)}|N 16A000|
|000000e0| 30 33 4e 30 32 31 30 43 | 20 20 20 32 31 7b 7c 7c |03N0210C|   21{|||
|000000f0| 20 73 65 6c 66 3a 53 65 | 74 28 68 61 6e 64 6c 65 | self:Se|t(handle|
|00000100| 29 7d 4e 20 31 37 41 30 | 30 30 30 33 4e 30 32 20 |)}N 17A0|0003N02 |
|00000110| 39 43 20 20 20 20 38 7b | 7c 7c 20 4e 49 4c 7d 4e |9C    8{||| NIL}N|
|00000120| 20 31 38 41 30 30 30 30 | 33 4e 30 32 20 30 43 20 | 18A0000|3N02 0C |
|00000130| 20 20 20 30 4e 20 31 39 | 00 54 58 54 41 44 44 20 |   0N 19|.TXTADD |
|00000140| 20 20 20 00 c3 20 20 20 | 20 8e 00 41 44 4c 20 20 |   ..   | ..ADL  |
|00000150| 20 20 20 20 20 20 20 20 | 20 41 20 20 20 20 36 41 |        | A    6A|
|00000160| 30 30 30 30 33 4e 30 32 | 31 33 41 20 20 20 20 31 |00003N02|13A    1|
|00000170| 43 20 20 20 20 33 74 78 | 74 4e 20 32 31 31 41 30 |C    3tx|tN 211A0|
|00000180| 30 30 30 33 4e 30 32 31 | 30 43 20 20 20 32 39 7b |0003N021|0C   29{|
|00000190| 7c 7c 20 46 57 52 49 54 | 45 20 28 73 65 6c 66 3a ||| FWRIT|E (self:|
|000001a0| 73 65 74 28 29 2c 20 74 | 78 74 29 7d 4e 20 32 31 |set(), t|xt)}N 21|
|000001b0| 32 41 30 30 30 30 33 4e | 30 32 20 39 43 20 20 20 |2A00003N|02 9C   |
|000001c0| 20 39 7b 7c 7c 20 20 4e | 49 4c 7d 4e 20 32 31 33 | 9{||  N|IL}N 213|
|000001d0| 41 30 30 30 30 33 4e 30 | 32 20 30 43 20 20 20 20 |A00003N0|2 0C    |
|000001e0| 30 4e 20 32 31 34 00 54 | 58 54 41 44 44 4c 49 4e |0N 214.T|XTADDLIN|
|000001f0| 45 00 c3 20 20 20 20 9e | 00 41 44 4c 20 20 20 20 |E..    .|.ADL    |
|00000200| 20 20 20 20 20 20 20 41 | 20 20 20 20 36 41 30 30 |       A|    6A00|
|00000210| 30 30 33 4e 30 32 31 33 | 41 20 20 20 20 31 43 20 |003N0213|A    1C |
|00000220| 20 20 20 33 74 78 74 4e | 20 32 31 36 41 30 30 30 |   3txtN| 216A000|
|00000230| 30 33 4e 30 32 31 30 43 | 20 20 20 34 35 7b 7c 7c |03N0210C|   45{|||
|00000240| 20 46 57 52 49 54 45 20 | 28 73 65 6c 66 3a 73 65 | FWRITE |(self:se|
|00000250| 74 28 29 2c 20 74 78 74 | 2b 63 68 72 28 31 33 29 |t(), txt|+chr(13)|
|00000260| 2b 63 68 72 28 31 30 29 | 29 7d 4e 20 32 31 37 41 |+chr(10)|)}N 217A|
|00000270| 30 30 30 30 33 4e 30 32 | 20 39 43 20 20 20 20 39 |00003N02| 9C    9|
|00000280| 7b 7c 7c 20 20 4e 49 4c | 7d 4e 20 32 31 38 41 30 |{||  NIL|}N 218A0|
|00000290| 30 30 30 33 4e 30 32 20 | 30 43 20 20 20 20 30 4e |0003N02 |0C    0N|
|000002a0| 20 32 31 39 00 54 58 54 | 43 4c 4f 53 45 20 20 00 | 219.TXT|CLOSE  .|
|000002b0| c3 20 20 20 20 6a 00 41 | 44 4c 20 20 20 20 20 20 |.    j.A|DL      |
|000002c0| 20 20 20 20 20 41 20 20 | 20 20 35 41 30 30 30 30 |     A  |  5A0000|
|000002d0| 33 4e 30 32 31 30 43 20 | 20 20 32 34 7b 7c 7c 20 |3N0210C |  24{|| |
|000002e0| 46 43 4c 4f 53 45 20 28 | 73 65 6c 66 3a 73 65 74 |FCLOSE (|self:set|
|000002f0| 28 29 29 7d 4e 20 32 32 | 31 41 30 30 30 30 33 4e |())}N 22|1A00003N|
|00000300| 30 32 20 39 43 20 20 20 | 20 39 7b 7c 7c 20 20 4e |02 9C   | 9{||  N|
|00000310| 49 4c 7d 4e 20 32 32 32 | 41 30 30 30 30 33 4e 30 |IL}N 222|A00003N0|
|00000320| 32 20 30 43 20 20 20 20 | 30 4e 20 32 32 33 00 54 |2 0C    |0N 223.T|
|00000330| 58 54 4e 45 57 50 41 47 | 45 00 c3 20 20 20 20 73 |XTNEWPAG|E..    s|
|00000340| 00 41 44 4c 20 20 20 20 | 20 20 20 20 20 20 20 41 |.ADL    |       A|
|00000350| 20 20 20 20 35 41 30 30 | 30 30 33 4e 30 32 31 30 |    5A00|003N0210|
|00000360| 43 20 20 20 33 33 7b 7c | 7c 20 46 57 52 49 54 45 |C   33{||| FWRITE|
|00000370| 20 28 73 65 6c 66 3a 73 | 65 74 28 29 2c 20 63 68 | (self:s|et(), ch|
|00000380| 72 28 31 32 29 29 7d 4e | 20 32 32 35 41 30 30 30 |r(12))}N| 225A000|
|00000390| 30 33 4e 30 32 20 39 43 | 20 20 20 20 39 7b 7c 7c |03N02 9C|    9{|||
|000003a0| 20 20 4e 49 4c 7d 4e 20 | 32 32 36 41 30 30 30 30 |  NIL}N |226A0000|
|000003b0| 33 4e 30 32 20 30 43 20 | 20 20 20 30 4e 20 32 32 |3N02 0C |   0N 22|
|000003c0| 38 00                   |                         |8.      |        |
+--------+-------------------------+-------------------------+--------+--------+